home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / DELPHI32 / GRAPHICS / IMGLIB95 / UMDBTB.PA_ / UMDBTB.PA
Text File  |  1996-03-31  |  2KB  |  95 lines
  1. {
  2. Written by Jan Dekkers and Kevin Adams (c) 1995, 1996. If you are a non
  3. registered client, you may use or alter this demo only for evaluation
  4. purposes.
  5.  
  6. Copyright by SkyLine Tools. All rights reserved.
  7.  
  8. Part of Imagelib VCL/DLL Library.
  9. }
  10.  
  11. unit umdbtb;
  12.  
  13. {Includes settings to compile in either 16 or 32 bit}
  14. {$I DEFILIB.INC}
  15.  
  16. interface
  17.  
  18. uses
  19. {$IFDEF DEL32}
  20.   Windows,
  21. {$ELSE}
  22.   WinTypes,
  23.   WinProcs,
  24. {$ENDIF}
  25.   DLL95V1,    {ImageLib Dll interface and misc. functions}
  26.   Messages,
  27.   SysUtils,
  28.   Classes,
  29.   Graphics,
  30.   Controls,
  31.   Forms,
  32.   Dialogs,
  33.   DB,
  34.   DBTables,
  35.   StdCtrls,
  36.   ExtCtrls,
  37.   DBCtrls,
  38.   DMMToolB,   {PDBMultiMedia Toolbar VCL component}
  39.   TDMULTIM;   {PDBMultiMedia1, PDBMultiImage VCL components}
  40.  
  41.  
  42. type
  43.   TMMForm1 = class(TForm)
  44.     DataSource1: TDataSource;
  45.     Table1: TTable;
  46.     CheckBox1: TCheckBox;
  47.     PDBMultiMedia1: TPDBMultiMedia;
  48.     PDBMMediaToolBar1: TPDBMMediaToolBar;
  49.     DBNavigator1: TDBNavigator;
  50.     procedure CheckBox1Click(Sender: TObject);
  51.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  52.     procedure FormCreate(Sender: TObject);
  53.   private
  54.     { Private declarations }
  55.   public
  56.     { Public declarations }
  57.   end;
  58.  
  59. var
  60.   MMForm1 : TMMForm1;
  61.  
  62. implementation
  63.  
  64. {$R *.DFM}
  65. {------------------------------------------------------------------------}
  66.  
  67. procedure TMMForm1.CheckBox1Click(Sender: TObject);
  68. begin
  69.      PDBMMediaToolBar1.ShowToolBar:=CheckBox1.Checked;
  70. end;
  71. {------------------------------------------------------------------------}
  72.  
  73. procedure TMMForm1.FormClose(Sender: TObject; var Action: TCloseAction);
  74. begin
  75.      MMForm1:=Nil;
  76.      Action:=caFree;
  77. end;
  78. {------------------------------------------------------------------------}
  79.  
  80. procedure TMMForm1.FormCreate(Sender: TObject);
  81. begin
  82.     If FileExists(ExtractFilePath(Application.ExeName)+'mmblob.dbf') then begin
  83.        {if the table exists open it on creation}
  84.        Table1.DataBaseName:=ExtractFilePath(Application.ExeName);
  85.        Table1.TableName:='mmblob.dbf';
  86.        Table1.Active:=True;
  87.     end;
  88.   {On create show the toolbar}
  89.   PDBMMediaToolBar1.PreviewsDir:=ExtractFilePath(Application.Exename);
  90.   PDBMMediaToolBar1.ShowToolBar:=true;
  91. end;
  92. {------------------------------------------------------------------------}
  93.  
  94. end.
  95.